home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed20.d64 / menu (.txt) next >
Commodore BASIC  |  2007-02-11  |  686b  |  30 lines
  1. 10 CLR:POKE53280,0:POKE53281,0:REM 90:02:15
  2. 20 PRINT"[147][156]   ** RAD'S TOUCH TYPING SERIES **"
  3. 30 PRINT"      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  4. 40 DIMA$(15)
  5. 50 FORA=1TO15:READA$(A):PRINT"[154]"RIGHT$("   "+STR$(A),4);". [158]";A$(A):NEXTA
  6. 60 INPUT"CHOOSE(1-15):";A$
  7. 70 A=VAL(A$):IFA<1ORA>15ORA<>INT(A)THENPRINT"[145][145][145][145]":GOTO60
  8. 80 FORX=1230+40*ATO1229+40*A+LEN(A$(A)):POKEX,PEEK(X)+128:POKEX+54272,3:NEXT
  9. 90 FORT=1TO1500:NEXT:PRINT"[147]  LOADING........ "A$(A)
  10. 100 PRINT"[144]LOAD"CHR$(34)A$(A)CHR$(34)",8:"
  11. 110 POKE198,0:POKE631,19:POKE632,131:POKE198,2:END
  12. 600 O3 DATA "ADD SB"
  13. 59999 :
  14. 60001 DATA "TT1"
  15. 60002 DATA "TT2"
  16. 60003 DATA "TT3"
  17. 60004 DATA "TT4"
  18. 60005 DATA "TT5"
  19. 60006 DATA "TT6"
  20. 60007 DATA "TT7"
  21. 60008 DATA "TT8"
  22. 60009 DATA "TT9"
  23. 60010 DATA "TT10"
  24. 60011 DATA "TT11"
  25. 60012 DATA "TT12"
  26. 60013 DATA "TT13"
  27. 60014 DATA "TT14"
  28. 60015 DATA "MODULES 15-29
  29. 60016 [131] "**"
  30.